PL1=0
DO WHILE PL1=0
   SET COLO TO W+/B,W+/N
   @  4,33 clea to 6,55
   @  7, 1 CLEA TO 23,78
   @  8, 5 SAY "S P E C I A L   R E P O R T S"
   @  7, 3 TO 9,35
   SET COLOR TO W+/N
   @ 11,5 CLEA TO 23,41
   SET COLOR TO N/BG,W+/N
   @ 10,3 CLEA TO 22,39
   @ 10,3 TO 22,39 DOUBLE
   @ 11,5 PROMPT " A .. FREQUENTATION ANALYSIS     "
   @ 12,5 prompt " B .. LABORATORY ACTIVITY REPORT "
   @ 13,5 PROMPT " C .. SUMMARY (PREVIOUS MONTHS)  "
   @ 14,5 PROMPT " D .. DISPENSING OF MEDICATIONS  "
   @ 15,5 PROMPT " E .. INVOICE ISSUED BY CASHIER  "
   @ 16,5 PROMPT " F .. INVOICE ISSUED ( SUMMARY ) "
   @ 17,5 PROMPT " G .. HEALT. ACTIVITIES PROCEDURE"
   @ 18,5 PROMPT " H .. HEALT. ACTIVITIES PHARMACY "
   @ 19,5 PROMPT " I .. HEALT. PATIENT ACTIVITIES  "
   @ 20,5 PROMPT " J .. EMPLOYEE ACTIVITIES        "

   @ 21,5 PROMPT " X .. RETURN TO PREVIOUS MENU    "
   MENU TO PL1
   LYYY=SAVESCREEN(0,0,24,79)
   SET COLO TO BG+/B
   DO CASE
      CASE PL1=1
         DO REPFREQ
      CASE PL1=2
         do repslab
      case pl1=3
         do repacold
      case pl1=4
         DO REPsDRUG
      case pl1=5
         do RCASINV2
      case pl1=6
         DO RCASIN2D
      CASE PL1=7
         DO REPRUSED
      case pl1=8
         DO REPHUSED
      case pl1=9
         DO JIMHEAL
      case pl1=10
         do JIMEMP
      CASE PL1=11 .OR. LASTKEY()=27
         CLEAR
         RETURN
   ENDCASE
   RESTSCREEN(0,0,24,79,LYYY)
   PL1=0
ENDDO

